home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO023.dsk / SAMPLE.bas < prev    next >
BASIC Source File  |  2012-02-16  |  3KB  |  103 lines
  1. 0  HOME : HGR : HCOLOR= 3
  2. 46  FOR I = 100 TO 110
  3. 48  HCOLOR= 3
  4. 50 X = 90:Y = I: GOSUB 1100
  5. 52 X = 115: GOSUB 1118
  6. 54 X = 140: GOSUB 1132
  7. 56 X = 165: GOSUB 1150
  8. 58 X = 190: GOSUB 1174
  9. 60 X = 215: GOSUB 1100
  10. 62 X = 240: GOSUB 1188
  11. 66  NEXT I
  12. 100 X% = 25:Y% = 80
  13. 102  FOR I = 25 TO 70: HCOLOR= 3: GOSUB 1000: HCOLOR= 0: GOSUB 1000:X% = I:I = I +5: NEXT I
  14. 104  HCOLOR= 3:X% = 70:Y% = 80: GOSUB 1000
  15. 106 X% = 25
  16. 108  FOR I = 25 TO 41: HCOLOR= 3: GOSUB 1000: HCOLOR= 0: GOSUB 1000:X% = I:I = I +5: NEXT I
  17. 110  HCOLOR= 3:X% = 41:Y% = 80: GOSUB 1000
  18. 112 X% = 8
  19. 114  FOR I = 8 TO 11: HCOLOR= 3: GOSUB 1000: HCOLOR= 0: GOSUB 1000:X% = I: NEXT I
  20. 116  HCOLOR= 3:X% = 11:Y% = 80: GOSUB 1000
  21. 200  PRINT  CHR$(4);"run inertia"
  22. 998  END 
  23. 1000  HPLOT X% +3,Y% TO X% +4,Y%
  24. 1002  HPLOT X% +3,Y% +1 TO X% +5,Y% +1
  25. 1004  HPLOT X% +10,Y% +1 TO X% +11,Y% +1
  26. 1006  HPLOT X% +3,Y% +2 TO X% +6,Y% +2
  27. 1008  HPLOT X% +10,Y% +2 TO X% +11,Y% +2
  28. 1010  HPLOT X% +4,Y% +3 TO X% +7,Y% +3
  29. 1012  HPLOT X% +9,Y% +3 TO X% +10,Y% +3
  30. 1014  HPLOT X% +4,Y% +4 TO X% +10,Y% +4
  31. 1016  HPLOT X% +1,Y% +5 TO X% +16,Y% +5
  32. 1018  HPLOT X%,Y% +6 TO X% +17,Y% +6
  33. 1020  HPLOT X%,Y% +7 TO X% +17,Y% +6
  34. 1022  HPLOT X%,Y% +8 TO X% +17,Y% +8
  35. 1024  HPLOT X%,Y% +9 TO X% +17,Y% +9
  36. 1026  HPLOT X% +1,Y% +10 TO X% +16,Y% +10
  37. 1028  HPLOT X% +1,Y% +11 TO X% +16,Y% +11
  38. 1030  HPLOT X% +1,Y% +12 TO X% +16,Y% +12
  39. 1032  HPLOT X% +2,Y% +13 TO X% +15,Y% +13
  40. 1034  HPLOT X% +2,Y% +14 TO X% +15,Y% +14
  41. 1036  HPLOT X% +3,Y% +15 TO X% +14,Y% +15
  42. 1038  HPLOT X% +4,Y% +16 TO X% +13,Y% +16
  43. 1040  HPLOT X% +5,Y% +17 TO X% +7,Y% +17
  44. 1042  HPLOT X% +10,Y% +17 TO X% +12,Y% +17
  45. 1043  REM  ARMS
  46. 1044  HPLOT X% +17,Y% +10 TO X% +28,Y% +9
  47. 1046  HPLOT X% +17,Y% +7 TO X% +28,Y% +6
  48. 1048  REM  LEGS
  49. 1050  HPLOT X% +11,Y% +18 TO X% +14,Y% +21 TO X% +11,Y% +26 TO X% +14,Y% +26
  50. 1052  HPLOT X% +8,Y% +18 TO X% +4,Y% +22 TO X%,Y% +17 TO X% -3,Y% +17
  51. 1080  RETURN 
  52. 1100  REM  I
  53. 1102  HPLOT X,Y TO X +19,Y
  54. 1104  HPLOT X,Y -1 TO X +19,Y -1
  55. 1106  HPLOT X +9,Y -2 TO X +9,Y -37
  56. 1108  HPLOT X +10,Y -2 TO X +10,Y -37
  57. 1110  HPLOT X,Y -39 TO X +19,Y -39
  58. 1112  HPLOT X,Y -38 TO X +19,Y -38
  59. 1114  RETURN 
  60. 1116  REM  N
  61. 1118  HPLOT X,Y TO X,Y -39
  62. 1120  HPLOT X +1,Y TO X +1,Y -39
  63. 1122  HPLOT X +2,Y -39 TO X +17,Y -1
  64. 1124  HPLOT X +2,Y -38 TO X +17,Y
  65. 1126  HPLOT X +18,Y TO X +18,Y -39
  66. 1128  HPLOT X +19,Y TO X +19,Y -39
  67. 1129  RETURN 
  68. 1130  REM  E
  69. 1132  HPLOT X,Y TO X,Y -39
  70. 1134  HPLOT X +1,Y TO X +1,Y -39
  71. 1136  HPLOT X +2,Y TO X +19,Y
  72. 1138  HPLOT X +2,Y -1 TO X +19,Y -1
  73. 1140  HPLOT X +2,Y -19 TO X +12,Y -19
  74. 1142  HPLOT X +2,Y -20 TO X +12,Y -20
  75. 1144  HPLOT X +2,Y -39 TO X +19,Y -39
  76. 1146  HPLOT X +2,Y -38 TO X +19,Y -38
  77. 1148  RETURN 
  78. 1150  REM  R
  79. 1152  HPLOT X,Y TO X,Y -39
  80. 1154  HPLOT X +1,Y TO X +1,Y -39
  81. 1156  HPLOT X +2,Y -39 TO X +17,Y -39
  82. 1158  HPLOT X +2,Y -38 TO X +17,Y -38
  83. 1160  HPLOT X +2,Y -20 TO X +17,Y -20
  84. 1162  HPLOT X +2,Y -19 TO X +17,Y -19
  85. 1164  HPLOT X +18,Y -21 TO X +18,Y -37
  86. 1166  HPLOT X +19,Y -21 TO X +19,Y -37
  87. 1168  HPLOT X +7,Y -19 TO X +18,Y
  88. 1170  HPLOT X +8,Y -19 TO X +19,Y
  89. 1172  RETURN 
  90. 1174  REM  T
  91. 1176  HPLOT X,Y -39 TO X +19,Y -39
  92. 1178  HPLOT X,Y -38 TO X +19,Y -38
  93. 1180  HPLOT X +9,Y TO X +9,Y -37
  94. 1182  HPLOT X +10,Y TO X +10,Y -37
  95. 1184  RETURN 
  96. 1186  REM  A
  97. 1188  HPLOT X,Y TO X +9,Y -39
  98. 1190  HPLOT X +19,Y TO X +10,Y -39
  99. 1192  HPLOT X +1,Y TO X +9,Y -38
  100. 1194  HPLOT X +18,Y TO X +10,Y -38
  101. 1196  HPLOT X +4,Y -19 TO X +14,Y -19
  102. 1198  HPLOT X +4,Y -20 TO X +14,Y -20
  103. 1200  RETURN